﻿<!-- #include file="mymin.asp" -->
<%Call Head2()

w "<title>留言管理</title></head><body><div class='main400'>"& systemMsgRoot&"当前设置:"

If wapGuest=1 Then
	w "未回复留言隐藏<br/>"
Else
	w "留言直接显示<br/>"
End If
dim p
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1


dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id,title,retext from 74hu_guest order by ID desc",myconn,1,1
If Not rs.eof	Then
	dim pagesize,count,page,i,pagecount
	PageSize=10
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	w "共"&count&"条留言<br/>"
	For i=1 To PageSize
	If rs.eof Then Exit For
%>
[<a href="delly.asp?sid=<%=sid%>&amp;ID=<%=rs("ID")%>&amp;p=<%=p%>">删除</a>]<%=i+(page-1)*PageSize%>.<a href='readd.asp?sid=<%=sid%>&amp;ID=<%=rs("ID")%>&amp;p=<%=p%>'><%=nowml(rs("title"))%></a><% if rs("retext")<>"" then %>[已回]<% end if%><br/>
<%
	rs.moveNext
	Next
	w showPage("index.asp", "p:"&p, page, pageCount)&"<br/>"

Else
	w "暂时没有留言！<br/>"
end if
rs.close
set rs=nothing

%>温馨提示:前台留言是否需要审核,可以在网站配置中设置<br/>----------<%call Last2%>